home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpmulti.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  4.6 KB  |  153 lines
  1.  
  2. static object LI1();
  3. #define VMB1 register object *base=vs_top;
  4. #define VMS1  register object *sup=vs_top+1;vs_top=sup;
  5. #define VMV1 vs_reserve(1);
  6. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  7. static object LI2();
  8. #define VMB2 register object *base=vs_top; object  V17 ,V13;
  9. #define VMS2 vs_top += 3;
  10. #define VMV2 vs_reserve(3);
  11. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  12. static object LI3();
  13. #define VMB3 register object *base=vs_top;
  14. #define VMS3 vs_top += 1;
  15. #define VMV3 vs_reserve(1);
  16. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  17. static object LI4();
  18. #define VMB4 register object *base=vs_top; object  V34 ,V33;
  19. #define VMS4 vs_top += 4;
  20. #define VMV4 vs_reserve(4);
  21. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  22. static object LI5();
  23. #define VMB5 register object *base=vs_top;
  24. #define VMS5 vs_top += 1;
  25. #define VMV5 vs_reserve(1);
  26. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  27. static object LI6();
  28. #define VMB6 register object *base=vs_top; object  V50 ,V49 ,V48 ,V47;
  29. #define VMS6 vs_top += 3;
  30. #define VMV6 vs_reserve(3);
  31. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  32. static object LI7();
  33. #define VMB7 register object *base=vs_top; object  V63 ,V62 ,V61 ,V56;
  34. #define VMS7  register object *sup=vs_top+4;vs_top=sup;
  35. #define VMV7 vs_reserve(4);
  36. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  37. static object LI8();
  38. #define VMB8
  39. #define VMS8
  40. #define VMV8
  41. #define VMR8(VMT8) return(VMT8);
  42. static object LI9();
  43. #define VMB9 register object *base=vs_top; object  V83;
  44. #define VMS9 vs_top += 2;
  45. #define VMV9 vs_reserve(2);
  46. #define VMR9(VMT9) vs_top=base ; return(VMT9);
  47. static object LI10();
  48. #define VMB10 register object *base=vs_top; object  V102 ,V96;
  49. #define VMS10  register object *sup=vs_top+4;vs_top=sup;
  50. #define VMV10 vs_reserve(4);
  51. #define VMR10(VMT10) vs_top=base ; return(VMT10);
  52. static object LI11();
  53. #define VMB11 register object *base=vs_top; object  V121 ,V119;
  54. #define VMS11  register object *sup=vs_top+7;vs_top=sup;
  55. #define VMV11 vs_reserve(7);
  56. #define VMR11(VMT11) vs_top=base ; return(VMT11);
  57. #define VM11 7
  58. #define VM10 4
  59. #define VM9 2
  60. #define VM8 0
  61. #define VM7 4
  62. #define VM6 3
  63. #define VM5 1
  64. #define VM4 4
  65. #define VM3 1
  66. #define VM2 3
  67. #define VM1 1
  68. static char * VVi[74]={
  69. #define Cdata VV[73]
  70. (char *)(LI1),
  71. (char *)(LI2),
  72. (char *)(LI3),
  73. (char *)(LI4),
  74. (char *)(LI5),
  75. (char *)(LI6),
  76. (char *)(LI7),
  77. (char *)(LI8),
  78. (char *)(LI9),
  79. (char *)(LI10),
  80. (char *)(LI11)
  81. };
  82. #define VV ((object *)VVi)
  83. static  LnkT72() ;
  84. static  (*Lnk72)() = LnkT72;
  85. static object  LnkTLI71() ;
  86. static object  (*LnkLI71)() = LnkTLI71;
  87. static  LnkT70() ;
  88. static  (*Lnk70)() = LnkT70;
  89. static object  LnkTLI69() ;
  90. static object  (*LnkLI69)() = LnkTLI69;
  91. static object  LnkTLI68() ;
  92. static object  (*LnkLI68)() = LnkTLI68;
  93. static object  LnkTLI67() ;
  94. static object  (*LnkLI67)() = LnkTLI67;
  95. static object  LnkTLI66() ;
  96. static object  (*LnkLI66)() = LnkTLI66;
  97. static object  LnkTLI65() ;
  98. static object  (*LnkLI65)() = LnkTLI65;
  99. static object  LnkTLI64() ;
  100. static object  (*LnkLI64)() = LnkTLI64;
  101. static object  LnkTLI63() ;
  102. static object  (*LnkLI63)() = LnkTLI63;
  103. static  LnkT62() ;
  104. static  (*Lnk62)() = LnkT62;
  105. static object  LnkTLI61() ;
  106. static object  (*LnkLI61)() = LnkTLI61;
  107. static object  LnkTLI60() ;
  108. static object  (*LnkLI60)() = LnkTLI60;
  109. static object  LnkTLI59() ;
  110. static object  (*LnkLI59)() = LnkTLI59;
  111. static object  LnkTLI58() ;
  112. static object  (*LnkLI58)() = LnkTLI58;
  113. static object  LnkTLI57() ;
  114. static object  (*LnkLI57)() = LnkTLI57;
  115. static object  LnkTLI56() ;
  116. static object  (*LnkLI56)() = LnkTLI56;
  117. static object  LnkTLI55() ;
  118. static object  (*LnkLI55)() = LnkTLI55;
  119. static object  LnkTLI54() ;
  120. static object  (*LnkLI54)() = LnkTLI54;
  121. static object  LnkTLI53() ;
  122. static object  (*LnkLI53)() = LnkTLI53;
  123. static object  LnkTLI52() ;
  124. static object  (*LnkLI52)() = LnkTLI52;
  125. static object  LnkTLI51() ;
  126. static object  (*LnkLI51)() = LnkTLI51;
  127. static object  LnkTLI50() ;
  128. static object  (*LnkLI50)() = LnkTLI50;
  129. static object  LnkTLI49() ;
  130. static object  (*LnkLI49)() = LnkTLI49;
  131. static object  LnkTLI48() ;
  132. static object  (*LnkLI48)() = LnkTLI48;
  133. static object  LnkTLI47() ;
  134. static object  (*LnkLI47)() = LnkTLI47;
  135. static object  LnkTLI46() ;
  136. static object  (*LnkLI46)() = LnkTLI46;
  137. static object  LnkTLI45() ;
  138. static object  (*LnkLI45)() = LnkTLI45;
  139. static object  LnkTLI44() ;
  140. static object  (*LnkLI44)() = LnkTLI44;
  141. static object  LnkTLI43() ;
  142. static object  (*LnkLI43)() = LnkTLI43;
  143. static object  LnkTLI42() ;
  144. static object  (*LnkLI42)() = LnkTLI42;
  145. static  LnkT41() ;
  146. static  (*Lnk41)() = LnkT41;
  147. static object  LnkTLI40() ;
  148. static object  (*LnkLI40)() = LnkTLI40;
  149. static object  LnkTLI39() ;
  150. static object  (*LnkLI39)() = LnkTLI39;
  151. static object  LnkTLI38() ;
  152. static object  (*LnkLI38)() = LnkTLI38;
  153.